home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macDialogAlert.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  1.6 KB  |  58 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MACDialogAlert
  3. % 
  4. % In this module you find the programmers interface to Dialogs and Alerts.
  5. % It is built on top of the TOOLBOX routines in TOOLBOXDialog.
  6. % For a description of the routines see Inside Macintosh, chapter 13.
  7. % MacDialogAlert is only used as prefix on MacDialog and MacAlert
  8. %
  9. % 890317/Boris Magnusson
  10. % 890412/Göran Eriksson
  11. %
  12. % ---------------------------------------------------------------------------
  13.  
  14. external text procedure Text_String="::SInterfaces:Text_String";
  15. external text procedure String_Text="::SInterfaces:String_Text";
  16. external class MACPoint="::SInterfaces:MACPoint";
  17. external class MACRect="::SInterfaces:MACRect";
  18. external class MACWindow="::SInterfaces:MACWindow";
  19. external class ToolboxDialog="::SInterfaces:ToolboxDialog";
  20. MacWindow class MacDialogAlert;
  21. begin
  22.         ref(ToolboxDialog) TD;
  23.  
  24.                      
  25. %    PROCEDURE SetIText(item: Handle; text: Str255);
  26.     PROCEDURE SetIText(item, text255);
  27.             value text255;
  28.             integer item;
  29.             text text255;
  30.         begin
  31.             text Temp;
  32.             temp:-text_String(text255);
  33.             TD.ToolboxSetIText(item, temp);
  34.         end;
  35.  
  36. %    PROCEDURE GetIText(item: Handle; VAR text: Str255);
  37.     PROCEDURE GetIText(item, text255);
  38.             name text255;
  39.             integer item;
  40.             text text255;
  41.         begin
  42.             text Temp;
  43.             temp:-text_String(text255);
  44.             TD.ToolboxGetIText(item, temp);
  45.             text255:-String_Text(Temp);
  46.         end;
  47.  
  48. %    {routines designed only for use in Pascal}
  49.  
  50. %    FUNCTION GetAlrtStage: INTEGER;
  51. %    external Toolbox procedure x="$3EB8, $0A9A" is
  52.  
  53. %    PROCEDURE ResetAlrtStage;
  54. %    external Toolbox procedure x="$4278, $0A9A" is
  55.  
  56.         TD:-new ToolboxDialog;
  57.  
  58. end;